﻿Public Class CInstrumentosConsulta

Private _instrumento As String 
Private _numInstrumento As String 



Public Sub new(ByVal instrumento As String, ByVal numInstrumento As Integer)
   Me._instrumento = IIf(IsDBNull ( instrumento ), "", instrumento )
   Me._NumInstrumento = IIf(IsDBNull ( numInstrumento ),0,numInstrumento )
End Sub


Public Property Instrumento() As String
    Get
        Return _instrumento 
    End Get
    Set(ByVal value As String)
        _instrumento = value
    End Set
End Property


Public Property NumInstrumento() As Integer 
    Get
        Return _numInstrumento
    End Get
    Set(ByVal value As Integer )
        _numInstrumento = value
    End Set
End Property


    Public Overrides Function ToString() As String
        Return _instrumento 
    End Function




End Class
